home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / GRID.LI2 < prev    next >
Text File  |  1994-07-20  |  496b  |  15 lines

  1. grid(xmin_,xmax_,ymin_,ymax_) := block(line(0,getmaxy*0.25,getmaxx,getmaxy*0.25),
  2. line(0,getmaxy*0.5,getmaxx,getmaxy*0.5),
  3. line(0,getmaxy*0.75,getmaxx,getmaxy*0.75),
  4.     moveto(0,getmaxy*0.5+20),
  5.     writes(xmin),
  6.     moveto(getmaxx-30,getmaxy*0.5+20),
  7.     writes(xmax),
  8.     line(getmaxx*0.25,0,getmaxx*0.25,getmaxy),
  9.     line(getmaxx*0.5,0,getmaxx*0.5,getmaxy),
  10.     line(getmaxx*0.75,0,getmaxx*0.75,getmaxy),
  11.     moveto(getmaxx*0.5-20,0),
  12.     writes(ymax),
  13.     moveto(getmaxx*0.5-20,getmaxy-15),
  14.     writes(ymin))
  15.